home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / ACollection.p next >
Text File  |  2004-01-31  |  4KB  |  109 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " withAll: " \
  3.   #( #[ 16r20 16r21 16rA3 16rB0 16r72 16r50 16r73 16r21 16rE1 16r04 16r09 \
  4.         16r22 16r23 16r51 16rC0 16rF1 16r73 16r24 16rD0 16rF3 16rB3 \
  5.         16rF2 16r22 16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " with:with:with:with: " \
  9.   #( #[ 16r20 16r54 16rB0 16r75 16r25 16r51 16r21 16rD0 16rF2 16r25 16r52 \
  10.         16r22 16rD0 16rF2 16r25 16r53 16r23 16rD0 16rF2 16r25 16r54 \
  11.         16r24 16rD0 16rF2 16r25 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " with:with:with: " \
  15.   #( #[ 16r20 16r53 16rB0 16r74 16r24 16r51 16r21 16rD0 16rF2 16r24 16r52 \
  16.         16r22 16rD0 16rF2 16r24 16r53 16r23 16rD0 16rF2 16r24 16rF3 \
  17.         16rF5] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 4  " with:with: " \
  21.   #( #[ 16r20 16r52 16rB0 16r73 16r23 16r51 16r21 16rD0 16rF2 16r23 16r52 \
  22.         16r22 16rD0 16rF2 16r23 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 5  " with: " \
  26.   #( #[ 16r20 16r51 16rB0 16r72 16r22 16r51 16r21 16rD0 16rF2 16r22 16rF3 \
  27.         16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 6  " shallowCopy " \
  31.   #( #[ 16r20 16rA4 16r20 16rA3 16rB0 16r71 16r51 16r20 16rA3 16rB2 16rE1 \
  32.         16r02 16r07 16r21 16r22 16r20 16r22 16rB1 16rD0 16rF3 16rB3 \
  33.         16rF2 16r21 16rF3 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 7  " padTo: " \
  37.   #( #[ 16r20 16rA3 16r21 16rC7 16rF7 16r0C 16r20 16r20 16rA4 16r21 16r20 \
  38.         16rA3 16rC1 16rB0 16r0B 16r12 16rF8 16r02 16rF2 16r20 16rF3 \
  39.         16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 8  " next " \
  43.   #( #[ 16r10 16r51 16rC0 16r60 16r10 16r20 16rA3 16rC8 16rF7 16r03 16r20 \
  44.         16r10 16rB1 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 9  " lastKey " \
  48.   #( #[ 16r20 16rA3 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 10  " firstKey " \
  52.   #( #[ 16r51 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 11  " first " \
  56.   #( #[ 16r51 16r60 16r10 16r20 16rA3 16rC8 16rF7 16r03 16r20 16r10 16rB1 \
  57.         16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 12  " do: " \
  61.   #( #[ 16r5E 16r80 16r00 16rF2 16r51 16r20 16rA3 16rB2 16rE1 16r02 16r08 \
  62.         16r22 16r60 16r21 16r20 16r22 16rB1 16rB5 16rF3 16rB3 16rF2 \
  63.         16r5E 16r80 16r00 16rF2 16rF5] \
  64.     #( #tracingOff  )) >
  65.  
  66. <primitive 112 pTempVar 13  " deepCopy " \
  67.   #( #[ 16r5E 16r80 16r00 16rF2 16r20 16rA4 16r20 16rA3 16rB0 16r71 16r51 \
  68.         16r20 16rA3 16rB2 16rE1 16r02 16r09 16r21 16r22 16r20 16r22 \
  69.         16rB1 16r0A 16r15 16rD0 16rF3 16rB3 16rF2 16r5E 16r80 16r00 \
  70.         16rF2 16r21 16rF3 16rF5] \
  71.     #( #tracingOff  )) >
  72.  
  73. <primitive 112 pTempVar 14  " currentKey " \
  74.   #( #[ 16r10 16rF3 16rF5] \
  75.     #(  )) >
  76.  
  77. <primitive 112 pTempVar 15  " copyFrom:to: " \
  78.   #( #[ 16r22 16r21 16rC1 16r51 16rC0 16r73 16r20 16rA4 16r23 16rB0 16r74 \
  79.         16r24 16r51 16r23 16r20 16r21 16r84 16r00 16rF2 16r24 16rF3 \
  80.         16rF5] \
  81.     #( #replaceFrom:to:with:startingAt:  )) >
  82.  
  83. <primitive 112 pTempVar 16  " coerce: " \
  84.   #( #[ 16r20 16rA4 16r21 16rA3 16rB0 16r72 16r22 16r51 16r21 16rA3 16r21 \
  85.         16r83 16r00 16rF2 16r22 16rF3 16rF5] \
  86.     #( #replaceFrom:to:with:  )) >
  87.  
  88. <primitive 112 pTempVar 17  " at:ifAbsent: " \
  89.   #( #[ 16r21 16r50 16rC8 16rFB 16r04 16r21 16r20 16rA3 16rCC 16rF7 16r03 \
  90.         16r22 16rA5 16rF3 16rF2 16r20 16r21 16rB1 16rF3 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 18  " = " \
  94.   #( #[ 16r5E 16r80 16r00 16rF2 16r20 16rA3 16r21 16rA3 16rCA 16rF7 16r02 \
  95.         16r5C 16rF3 16rF2 16r50 16r72 16r20 16rE1 16r03 16r0E 16r23 \
  96.         16r21 16r22 16r51 16rC0 16rF1 16r72 16rB1 16rCA 16rF7 16r02 \
  97.         16r5C 16rF4 16rF3 16rB3 16rF2 16r5E 16r80 16r01 16rF2 16r5B \
  98.         16rF3 16rF5] \
  99.     #( #tracingOff #tracingOn  )) >
  100.  
  101. <primitive 98 #ArrayedCollection \
  102.   <primitive 97 #ArrayedCollection #SequenceableCollection #AmigaTalk:General/ArrayedCollection.st \
  103.    #(  #current ) \
  104.    #( #withAll: #with:with:with:with: #with:with:with: #with:with: #with:  \
  105.        #shallowCopy #padTo: #next #lastKey #firstKey #first #do: #deepCopy #currentKey  \
  106.        #copyFrom:to: #coerce: #at:ifAbsent: #=  ) \
  107.   pTempVar 6 8 > #ordinary >
  108.  
  109.